(define (count i)
  (if (= i 0)
      (print 'BOOM!)
      (begin
	(print i)
	(count (- i 1)))))

(define main (count 5))
